Packages

library(plotly)
Warning: package ‘plotly’ was built under R version 4.0.5
Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

load data

X35020903 <- read_csv("https://ndownloader.figshare.com/files/35020903")
Rows: 1840 Columns: 29── Column specification ────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr (27): DepMap_ID, cell_line_name, stripped_cell_line_name, CCLE_Name, alias, sex, source,...
dbl  (2): COSMICID, WTSI_Master_Cell_ID
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
X35020903

wrangle data


edit_x35 <- X35020903 %>%
 filter(sex %in% "Female" | is.na(sex)) %>%
 filter(!(lineage %in% "unknown"))

viz data


dv1 <- ggplot(edit_x35) +
  aes(x = primary_disease, fill = lineage) +
  geom_bar() +
  scale_fill_hue(direction = 1) +
  coord_flip() +
  theme_minimal()
dv1

ggplotly(dv1)
LS0tCnRpdGxlOiAiTGlubGluJ3MgMXN0IFIgTm90ZWJvb2siCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KUGFja2FnZXMKYGBge3J9CmxpYnJhcnkocmVhZHIpCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkoZ2dwbG90MikKbGlicmFyeShwbG90bHkpCgpgYGAKCmxvYWQgZGF0YQpgYGB7cn0KWDM1MDIwOTAzIDwtIHJlYWRfY3N2KCJodHRwczovL25kb3dubG9hZGVyLmZpZ3NoYXJlLmNvbS9maWxlcy8zNTAyMDkwMyIpCgpYMzUwMjA5MDMKYGBgCgp3cmFuZ2xlIGRhdGEKYGBge3J9CgplZGl0X3gzNSA8LSBYMzUwMjA5MDMgJT4lCiBmaWx0ZXIoc2V4ICVpbiUgIkZlbWFsZSIgfCBpcy5uYShzZXgpKSAlPiUKIGZpbHRlcighKGxpbmVhZ2UgJWluJSAidW5rbm93biIpKQpgYGAKCnZpeiBkYXRhCmBgYHtyfQoKZHYxIDwtIGdncGxvdChlZGl0X3gzNSkgKwogIGFlcyh4ID0gcHJpbWFyeV9kaXNlYXNlLCBmaWxsID0gbGluZWFnZSkgKwogIGdlb21fYmFyKCkgKwogIHNjYWxlX2ZpbGxfaHVlKGRpcmVjdGlvbiA9IDEpICsKICBjb29yZF9mbGlwKCkgKwogIHRoZW1lX21pbmltYWwoKQpkdjEKCmBgYAoKYGBge3J9CmdncGxvdGx5KGR2MSkKYGBgCgo=